﻿Module Module1
  Sub Main()

    If My.Computer.Network.IsAvailable Then
      Console.WriteLine("Il computer è connesso alla rete")
    End If
    Console.Write(
      "Inserisci un indirizzo IP (per esempio 80.0.0.1): ")
    Dim indirizzoIP As String = Console.ReadLine
    Dim risposta As Boolean =
      My.Computer.Network.Ping(indirizzoIP)
    Console.WriteLine("Ping all'indirizzo " &
                      indirizzoIP & ": " & risposta)
    Console.WriteLine("Download file su desktop")
    My.Computer.Network.DownloadFile("http:" &
      "//www.deghetto.it/blog/download/" &
      "mdgFontInstallati.zip",
      "C:\Users\Mario\Desktop\mdgFontInstallati.zip")
    Console.WriteLine("Upload file su server")
    ' My.Computer.Network.UploadFile("http:" & 
    '   "//www.deghetto.it/blog/download/" & 
    '   "mdgFontInstallati.zip", URLserver)
    Console.ReadLine()

  End Sub
End Module